home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 167 / Tiger_Disk_167_19xx_Tiger-Crew-Disk_de_Side_D.d64 / ende - 034 - (.txt) next >
Commodore BASIC  |  2023-02-26  |  665b  |  19 lines
  1. 10 v=15:poke53280,.:poke53281,.:printchr$(147):poke53272,23:print""
  2. 20 print"                     [176][184][184][184][184][184][184][184][184][184][184][174]":
  3. 40 print"[159]                     [181]          [182] "
  4. 45 print"                     [173][185][185][185][185][185][185][185][185][185][185][189]       "
  5. 50 :fori=1to20  step.1
  6. 60 onigosub180,240,300,360
  7. 90 forz=1to50:next:print"";:next
  8. 130 onigosub180,240,300,360:
  9. 140 forz=0tovstep-2  :next: next    :goto50
  10. 150 forz=vto33
  11. 180 poke1569,69:poke1570,78:poke1571,68:poke1572,69:return
  12. 240 poke1569,45:poke1570,45 :poke1571,45:poke1572,45:return
  13. 250 print"[144]"
  14. 300 poke1569,197:poke1570,206:poke1571,196:poke1572,197:return
  15. 360 poke1569,45 :poke1570,45 :poke1571,45:poke1572,45:goto370
  16. 370 poke1569,69:poke1570,78:poke1571,68:poke1572,69:forz=0tovstep.8
  17. 375 poke1569,45 :poke1570,45 :poke1571,45:poke1572,45:
  18. 380 poke1569,197:poke1570,206:poke1571,196:poke1572,197:           :next
  19.